home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / qwe_avai.lha / Avail / Avail.arexx next >
Text File  |  1994-09-18  |  570b  |  32 lines
  1. /**************************************/
  2. options results
  3.  
  4. getuser 23 ; port=result
  5.  
  6. sendstring "$0avail >t:avail"port"}"
  7. sendstring "$0retinaavail >>t:avail"port"}"
  8.  
  9. open(i,"t:avail"port,"R")
  10.         s=0
  11.         do until eof(i)=1
  12.                 s=s+1
  13.                 line.s=readln(i)
  14.         end
  15. close(i)
  16.  
  17. s=s-1
  18.  
  19. transmit "n1c1Memory usage:"
  20. transmit "-------------"
  21.  
  22. transmit "n1c6"line.1
  23. transmit "----- --------- --------- --------- ---------c2"
  24.  
  25. do a=2 to s-2
  26.         transmit line.a
  27. end
  28.  
  29. transmit "n1c5retina"line.s
  30.  
  31. sendstring "$0delete t:avail"port"}"
  32.